home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 July & August / Amiga-CD 1997 #7-8.iso / pd-disketten / dms-gepackt / 4_96 / apd-4-96-2.dms / apd-4-96-2.adf / Amiga-E-Kurs / Listing_2.e < prev    next >
Text File  |  1996-03-13  |  579b  |  23 lines
  1. /* Erweiterung für FastNew() und FastDispose()
  2.    ©1995 Marcel Bennicke */
  3.  
  4. PROC fNew(size)
  5.   DEF mem:PTR TO LONG,ex
  6.  
  7.   mem:=FastNew(ex:=size+4) -> 4 Bytes mehr belegen
  8.   ^mem:=ex     -> im ersten Long die Größe ablegen
  9. ENDPROC mem+4  -> nächste freie Adresse zurückgeb.
  10.  
  11. PROC fDispose(mem:PTR TO LONG)
  12.   FastDispose(mem-4,mem[-1])  -> Größe auslesen
  13. ENDPROC                       -> und freigeben
  14.  
  15. PROC main()
  16.   DEF speicher:PTR TO LONG
  17.  
  18.   speicher:= fNew(500)  -> Speicher anfordern
  19.   IF speicher           -> wenn geglückt
  20.      fDispose(speicher) -> freigeben
  21.   ENDIF
  22. ENDPROC
  23.